1 POKE55,0:POKE56,128:CLR:DV=PEEK(186):IFDV<8THENDV=8
2 POKE53281,0:POKE53280,0:PRINTCHR$(147)CHR$(14)CHR$(8);
5 POKE53272,29
6 DIM M$(9),R$(4):F=0:FF=0:S=54272:GOSUB9900:O$=CHR$(8):F$=CHR$(15)
10 FORI=1TO8:READM$(I):NEXT
11 DATA "[208]RINT [208]UZZLE (1525)   "
12 DATA "[208]RINT [208]UZZLE (OTHER)  "
13 DATA "[208]RINT [211]OLUTION (1525) "
14 DATA "[208]RINT [211]OLUTION (OTHER)"
15 DATA "[210]EAD [201]T               "
16 DATA "[200]INT                  "
17 DATA "[195]REDITS               "
18 DATA "[204]OADSTAR              "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]             [206]UMBER [204]OGIC             [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                        [221]"
105 FORI=1TO10:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO8:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,1
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THENGOSUB9930:GOTO200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=8:R=12
170 IFK$=""THENM=M+1:R=R+1:IFM>8THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1):GOSUB9910
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 ONMGOTO1000,2000,3000,4000,12000,700,500,11000
205 GOTO150
500 SYS52496,2
525 POKE214,16:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(7)"[221]  [208]UZZLE [194]Y [194]. [211]CHULAK  [221]"
535 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52499,2:GOSUB28:GOTO155
555 :
700 SYS52496,2
725 POKE214,16:PRINT:PRINTTAB(3)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
727 PRINTTAB(3)"[221] [212]HE FIRST NUMBER ACROSS IS 256 [221]"
735 PRINTTAB(3)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
744 T=1
745 GETK$:IFK$<>""THEN550
746 T=T+1:IFT<100THEN545
750 SYS52499,2:GOSUB28:GOTO155
755 :
1000 GOSUB9000:IFPPTHEN155
1002 GOSUB6000
1005 OPEN4,4
1010 PRINT#4,F$"     [176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]";O$
1020 PRINT#4,F$"     [221] 1[221]  [221] 2[221][166][166][221] 3[221][166][166][221] 4[221]  [221] 5[221]";O$
1022 PRINT#4,F$"     [221]  [221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221]  [221]";O$
1025 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1030 PRINT#4,F$"     [221]  [221][166][166][221] 6[221] 7[221]  [221] 8[221]  [221][166][166][221]  [221]";O$
1032 PRINT#4,F$"     [221]  [221][166][166][221]  [221]  [221]  [221]  [221]  [221][166][166][221]  [221]";O$
1035 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1040 PRINT#4,F$"     [221] 9[221]10[221][166][166][221]11[221]  [221]  [221][166][166][221]12[221]  [221]";O$
1042 PRINT#4,F$"     [221]  [221]  [221][166][166][221]  [221]  [221]  [221][166][166][221]  [221]  [221]";O$
1045 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1050 PRINT#4,F$"     [221][166][166][221]13[221]14[221][166][166][221]  [221][166][166][221]15[221]  [221][166][166][221]";O$
1052 PRINT#4,F$"     [221][166][166][221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221][166][166][221]";O$
1055 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1060 PRINT#4,F$"     [221]16[221]  [221]  [221]  [221][166][166][221]17[221]  [221]  [221]  [221]";O$
1062 PRINT#4,F$"     [221]  [221]  [221]  [221]  [221][166][166][221]  [221]  [221]  [221]  [221]";O$
1065 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1070 PRINT#4,F$"     [221][166][166][221]18[221]  [221][166][166][221]19[221][166][166][221]20[221]  [221][166][166][221]";O$
1072 PRINT#4,F$"     [221][166][166][221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221][166][166][221]";O$
1075 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1080 PRINT#4,F$"     [221]21[221]  [221][166][166][221]22[221]  [221]23[221][166][166][221]24[221]25[221]";O$
1082 PRINT#4,F$"     [221]  [221]  [221][166][166][221]  [221]  [221]  [221][166][166][221]  [221]  [221]";O$
1085 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1090 PRINT#4,F$"     [221]  [221][166][166][221]26[221]  [221]  [221]  [221]27[221][166][166][221]  [221]";O$
1092 PRINT#4,F$"     [221]  [221][166][166][221]  [221]  [221]  [221]  [221]  [221][166][166][221]  [221]";O$
1095 PRINT#4,F$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";O$
1100 PRINT#4,F$"     [221]28[221]  [221]  [221][166][166][221]  [221][166][166][221]29[221]  [221]  [221]";O$
1102 PRINT#4,F$"     [221]  [221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221]  [221]";O$
1105 PRINT#4,F$"     [173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]"
1110 PRINT#4:CLOSE4:GOSUB5000:GOTO155
1115 :
2000 GOSUB9000:IFPPTHEN155
2002 GOSUB6000
2005 OPEN4,4
2010 PRINT#4,"      -- -- -- -- -- -- -- -- -- "
2020 PRINT#4,"     : 1:  : 2:XX: 3:XX: 4:  : 5:"
2022 PRINT#4,"     :  :  :  :XX:  :XX:  :  :  :"
2025 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2030 PRINT#4,"     :  :XX: 6: 7:  : 8:  :XX:  :"
2032 PRINT#4,"     :  :XX:  :  :  :  :  :XX:  :"
2035 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2040 PRINT#4,"     : 9:10:XX:11:  :  :XX:12:  :"
2042 PRINT#4,"     :  :  :XX:  :  :  :XX:  :  :"
2045 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2050 PRINT#4,"     :XX:13:14:XX:  :XX:15:  :XX:"
2052 PRINT#4,"     :XX:  :  :XX:  :XX:  :  :XX:"
2055 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2060 PRINT#4,"     :16:  :  :  :XX:17:  :  :  :"
2062 PRINT#4,"     :  :  :  :  :XX:  :  :  :  :"
2065 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2070 PRINT#4,"     :XX:18:  :XX:19:XX:20:  :XX:"
2072 PRINT#4,"     :XX:  :  :XX:  :XX:  :  :XX:"
2075 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2080 PRINT#4,"     :21:  :XX:22:  :23:XX:24:25:"
2082 PRINT#4,"     :  :  :XX:  :  :  :XX:  :  :"
2085 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2090 PRINT#4,"     :  :XX:26:  :  :  :27:XX:  :"
2092 PRINT#4,"     :  :XX:  :  :  :  :  :XX:  :"
2095 PRINT#4,"      --+--+--+--+--+--+--+--+-- "
2100 PRINT#4,"     :28:  :  :XX:  :XX:29:  :  :"
2102 PRINT#4,"     :  :  :  :XX:  :XX:  :  :  :"
2105 PRINT#4,"      -- -- -- -- -- -- -- -- -- "
2110 PRINT#4:CLOSE4:GOSUB5000:GOTO155
2115 :
3000 GOSUB9000:IFPPTHEN155
3002 GOSUB6000
3005 OPEN4,4
3010 PRINT#4,F$"     [176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]";O$
3020 PRINT#4,F$"     [221]2[221]5[221]6[221][166][221]8[221][166][221]1[221]2[221]8[221]";O$
3025 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3030 PRINT#4,F$"     [221]2[221][166][221]6[221]5[221]5[221]3[221]6[221][166][221]3[221]";O$
3035 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3040 PRINT#4,F$"     [221]4[221]3[221][166][221]5[221]1[221]2[221][166][221]1[221]2[221]";O$
3045 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3050 PRINT#4,F$"     [221][166][221]2[221]1[221][166][221]2[221][166][221]2[221]2[221][166][221]";O$
3055 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3060 PRINT#4,F$"     [221]8[221]7[221]0[221]4[221][166][221]1[221]0[221]2[221]4[221]";O$
3065 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3070 PRINT#4,F$"     [221][166][221]6[221]4[221][166][221]1[221][166][221]8[221]8[221][166][221]";O$
3075 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3080 PRINT#4,F$"     [221]6[221]8[221][166][221]3[221]5[221]2[221][166][221]8[221]4[221]";O$
3085 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3090 PRINT#4,F$"     [221]8[221][166][221]1[221]6[221]3[221]8[221]4[221][166][221]1[221]";O$
3095 PRINT#4,F$"     [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]";O$
3100 PRINT#4,F$"     [221]8[221]8[221]0[221][166][221]6[221][166][221]8[221]9[221]6[221]";O$
3105 PRINT#4,F$"     [173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
3110 PRINT#4:CLOSE4:GOTO155
3115 :
4000 GOSUB9000:IFPPTHEN155
4002 GOSUB6000
4005 OPEN4,4
4010 PRINT#4,"      - - - - - - - - - "
4020 PRINT#4,"     :2:5:6: :8: :1:2:8:"
4025 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4030 PRINT#4,"     :2: :6:5:5:3:6: :3:"
4035 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4040 PRINT#4,"     :4:3: :5:1:2: :1:2:"
4045 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4050 PRINT#4,"     : :2:1: :2: :2:2: :"
4055 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4060 PRINT#4,"     :8:7:0:4: :1:0:2:4:"
4065 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4070 PRINT#4,"     : :6:4: :1: :8:8: :"
4075 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4080 PRINT#4,"     :6:8: :3:5:2: :8:4:"
4085 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4090 PRINT#4,"     :8: :1:6:3:8:4: :1:"
4095 PRINT#4,"      -+-+-+-+-+-+-+-+- "
4100 PRINT#4,"     :8:8:0: :6: :8:9:6:"
4105 PRINT#4,"      - - - - - - - - - "
4110 PRINT#4:CLOSE4:GOTO155
4115 :
5000 OPEN4,4
5005 PRINT#4,"  ACROSS                                  DOWN"
5010 PRINT#4,"  1. SQUARE OF 4 DOWN                   ";
5015 PRINT#4,"  1. 1 ACROSS MINUS 8 DOWN
5020 [152]4,"  4. 6 ACROSS DIVIDED BY 11 ACROSS      ";
5025 [152]4,"  2. 20 ACROSS MINUS 26 DOWN
5030 PRINT#4,"  6. SQUARE OF 1 ACROSS                 ";
5035 PRINT#4,"     MINUS 12 ACROSS
5040 [152]4,"  9. CONSECUTIVE DIGITS, REVERSED       ";
5045 [152]4,"  3. 18 ACROSS TIMES 133
5050 PRINT#4," 11. 2 TIMES 1 ACROSS                   ";
5055 PRINT#4,"  4. 11 ACROSS DIVIDED BY 8 DOWN        ";
5060 PRINT#4," 12. 15 ACROSS MINUS 26 DOWN            ";
5065 PRINT#4,"  5. 18 ACROSS TIMES 13                 ";
5070 PRINT#4," 13. 18 ACROSS MINUS 9 ACROSS           ";
5075 PRINT#4,"  7. 20 ACROSS PLUS 26 DOWN MINUS
5080 [152]4," 15. ONE FOURTH OF 20 ACROSS            ";
5085 [152]4,"     9 ACROSS
5090 PRINT#4," 16. 11 ACROSS TIMES 17                 ";
5095 PRINT#4,"  8. SQUARE ROOT OF 17 ACROSS
5100 [152]4," 17. 4 TIMES 1 ACROSS                   ";
5105 [152]4," 10. 50 PERCENT OF 6 ACROSS             ";
5110 [152]4," 18. 2 TIMES 8 DOWN                     ";
5115 [152]4," 12. 3/4 OF 26 ACROSS
5120 PRINT#4," 20. SAME DIGITS                        ";
5125 PRINT#4," 14. 1/2 OF 15 DOWN
5130 [152]4," 21. SUM OF ALL DIGITS EQUALS 14        ";
5131 [152]4," 15. 4 DOWN TIMES 13
5132 PRINT#4," 22. 15 ACROSS TIMES 4 DOWN             ";
5135 PRINT#4," 19. 17 ACROSS PLUS 2 TIMES 1 ACROSS
5140 [152]4," 24. 23 DOWN TIMES 3                    ";
5145 [152]4," 21. 4 DOWN TIMES 9 ACROSS
5150 PRINT#4," 26. 1/2 OF 10 DOWN                     ";
5155 PRINT#4," 22. 27 DOWN MINUS 12 ACROSS
5160 [152]4," 28. 20 ACROSS TIMES 26 DOWN            ";
5165 [152]4," 23. 24 ACROSS DIVIDED BY 3
5170 PRINT#4," 29. 4 ACROSS TIMES 7                   ";
5175 PRINT#4," 25. 26 TIMES 4 DOWN
5180 [152]4,"                                        ";
5185 [152]4," 26. 8 DOWN MINUS 15 ACROSS
5190 PRINT#4,"                                        ";
5195 PRINT#4," 27. 3/2 TIMES 8 DOWN"
5235 PRINT#4:CLOSE4:RETURN
5240 :
6000 OPEN4,4
6005 PRINT#4, "  NUMBER LOGIC"
6006 PRINT#4
6010 PRINT#4:CLOSE4:RETURN
9000 SYS52496,2:PP=1
9005 POKE214,16:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9010 PRINTTAB(7)"[221]  [208]RINTER [210]EADY? [Y/N]  [221]"
9025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9035 GETK$:IFK$=""THEN9035
9036 IFK$="Y"THENPP=0
9040 SYS52499,2:GOSUB28:RETURN
9045 :
9800 POKE214,21:PRINT:PRINTLN$;
9805 PRINT"[221][154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
9810 GETK$:IFK$<>CHR$(13)THEN9810
9815 RETURN
9820 :
9900 FORI=0TO24:POKES+I,.:NEXT:RETURN
9910 POKES+24,15:POKES+5,9:POKES+6,0
9915 POKES+1,19:POKES,63:POKES+4,17
9920 FORT=1TO50:NEXT:POKES+4,16:RETURN
9930 POKES+24,15:POKES+5,9:POKES+6,0
9935 POKES+1,48:POKES,0:POKES+4,17
9940 FORT=1TO50:NEXT:POKES+4,16:RETURN
10000 OPEN15,8,15,"S0:NUMBER LOGIC":CLOSE15:SAVE"0:NUMBER LOGIC",8:END
11000 POKE214,16:PRINT
11005 PRINTTAB(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11015 PRINTTAB(7)"[221]  [193]RE YOU SURE?  [Y/N]  [221]"
11025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
11030 GETK$:IFK$=""THEN11030
11035 IFK$<>"Y"THENSYS52499,1:GOTO150
11037 PRINT"[147]":POKE53272,23
11040 OPEN15,DV,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
11050 IFER%<>63THENPRINT"[147]":POKE43,1:POKE44,8:POKE2048,0:END
11055 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)","DV
11060 PRINT"RUN"
11061 POKE43,1:POKE44,8:POKE2048,0
11065 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
12000 SYS52496,2
12001 GOSUB26
12005 PRINT"[221][156]              [206]UMBER [204]OGIC            [146][221]";
12010 PRINTLN$;
12015 PRINT"[155]    [206]UMBER [204]OGIC PUZZLES ARE LIKE
12020 [153]"LIST CROSSWORD PUZZLES EXCEPT THAT THE
12025 PRINT"[155] ANSWERS ARE NUMBERS RATHER THAN
12030 [153]"LIST WORDS.  (null)OU WILL FIND THAT MOST
12035 PRINT"[155] CLUES ARE CROSS-REFERENCED TO
12040 [153]"LIST EACH OTHER.
12045 PRINT"[155]    [201]F YOU HAVE A PRINTER/INTERFACE
12050 [153]"LIST COMBINATION THAT EMULATES THE
12055 PRINT"[155] [195]1525 PRINTER, CHOOSE THE 1525 PRINT
12060 [153]"LIST MODES TO PRINT THE PUZZLE AND
12065 PRINT"[155] SOLUTION.  [201]F YOUR PRINTER DOES
12070 [153]"LIST NOT SUPPORT LENOMMODORE GRAPHIC
12075 PRINT"[155] CHARACTERS OR PRINTER COMMANDS,
12080 [153]"LIST SELECT (null)(null)LEFT$VAL(null).
12100 GOSUB9800
12105 SYS52499,2:GOSUB28:GOTO155